lotus script code

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

lotus script code

following is the agents code in lotusscript

Sub Initialize
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim objIE
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
If (Not collection Is Nothing) Then
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
doc.RemoveItem("$KeepPrivate")
Set objIE = CreateObject("com.newgen.omni.SaveDocInODLotusAgent")
objIE.SaveDoc doc.NoteID, "sanjeevk.nsf"
objIE = Null

Next
End If

End Sub

There you can see, i am calling the activex dll whose code lines are written in the post

Feedback response number WEBB8W6BNH created by ~Zach Desgerobergikle on 07/13/2012